home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 3565-4.665 / dmg-4180 / source.4u / riley.ben / frs_zoom.bas (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  13KB  |  100 lines
  1. 10 REM <*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*>
  2. 100 WAIT
  3. 110 UPDATE
  4. 120 REM 
  5. 130 REM < Unpack fonts >
  6. 140 REM 
  7. 150 RESERVE
  8. 160 RESERVE
  9. 170 RESERVE
  10. 180 EXTENSION (Index #0) (Token 0x80)
  11. 190 EXTENSION (Index #0) (Token 0x80)
  12. 20 REM 
  13. 200 EXTENSION (Index #0) (Token 0x80)
  14. 210 GET PALETTE
  15. 220 FLASH
  16. 230 REM 
  17. 240 REM < Store coordinates in array >
  18. 250 REM < ( num of characters , pre-zooms ) , y coord , screen bank >
  19. 260 REM 
  20. 270 DIM
  21. 280 VARNAME
  22. 290 VARNAME
  23. 30 REM                   Simple text zoomer by Ben of FRS
  24. 300 FOR
  25. 310 VARNAME
  26. 320 NEXT
  27. 330 VARNAME
  28. 340 FOR
  29. 350 VARNAME
  30. 360 NEXT
  31. 370 FOR
  32. 380 VARNAME
  33. 390 NEXT
  34. 40 REM        it uses a font which has already be drawn and pre-zoomed
  35. 400 FOR
  36. 410 VARNAME
  37. 420 NEXT
  38. 430 FOR
  39. 440 FOR
  40. 450 VARNAME
  41. 460 VARNAME
  42. 470 NEXT
  43. 480 NEXT
  44. 490 FOR
  45. 50 REM    but you could add a reduce routine so as to use almost any font?
  46. 500 FOR
  47. 510 VARNAME
  48. 520 VARNAME
  49. 530 NEXT
  50. 540 NEXT
  51. 550 FOR
  52. 560 FOR
  53. 570 VARNAME
  54. 580 VARNAME
  55. 590 NEXT
  56. 60 REM               but besides this it is still quite fast
  57. 600 NEXT
  58. 610 REM 
  59. 620 REM < Text to be zoomed , in blocks of 10 characters ! >
  60. 630 REM 
  61. 640 VARNAME
  62. 650 VARNAME
  63. 660 VARNAME
  64. 670 VARNAME
  65. 680 VARNAME
  66. 690 VARNAME
  67. 70 REM 
  68. 700 VARNAME
  69. 710 VARNAME
  70. 720 VARNAME
  71. 730 REM 
  72. 740 REM < Do zoom >
  73. 750 REM 
  74. 760 FOR
  75. 770 VARNAME
  76. 780 FOR
  77. 790 VARNAME
  78. 80 REM <*#*#*#*#*#*#*#*#*#*#*#*#*# 26/03/1993 *#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*>
  79. 800 IF
  80. 810 FOR
  81. 820 SCREEN COPY
  82. 830 SCREEN SWAP
  83. 840 WAIT VBL
  84. 850 NEXT
  85. 860 NEXT
  86. 870 WAIT
  87. 880 FOR
  88. 890 VARNAME
  89. 90 REM 
  90. 900 IF
  91. 910 FOR
  92. 920 SCREEN COPY
  93. 930 SCREEN SWAP
  94. 940 WAIT VBL
  95. 950 NEXT
  96. 960 CLS
  97. 970 NEXT
  98. 980 NEXT
  99. 990 GOTO
  100.